home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 June
/
1987-06.d64
/
ml base demo 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
436b
|
17 lines
10 poke 53280,15:poke 53281,15
20 if x=1 then goto40:rem flag x prevents reloading in line 20
30 x=1:load "0:ml base.obj",8,1
40 input "[147]how many random strings";x
50 print"[151]"
60 dim n$(x):nd%=x
70 fori=1tox:ln=int(rnd(0)*8)+1
80 fork=1 to ln
90 n$(i)=n$(i)+chr$(int(rnd(0)*26+65))
100 next k
110 print n$(i)+" ";:next i:print
120 print"sorting in ascending order..[151]":b=ti
130 poke 828,0:sys49152:sort,a,n$().
140 b=ti-b
150 fori=0to x:printn$(i):next:print
160 print:print"seconds to sort";x;"strings=[157]";b/60